Fix bug in `tumme-get-comment'.

diff --git a/lisp/tumme.el b/lisp/tumme.el
index 26d48e77b2fd9d52d38e92f4e2c1310fbfe339e5..b45052bf09e9d08317e4c037fdf33f150124ce3e 100644 (file)
--- a/lisp/tumme.el
+++ b/lisp/tumme.el
@@ -2085,11 +2085,11 @@ as initial value."
 (defun tumme-get-comment (file)
   "Get comment for file FILE."
   (save-excursion
-    (let (end buf comment-beg comment (base-name (file-name-nondirectory file)))
+    (let (end buf comment-beg comment)
       (setq buf (find-file tumme-db-file))
       (goto-char (point-min))
       (when (search-forward-regexp
-             (format "^%s" base-name) nil t)
+             (format "^%s" file) nil t)
         (end-of-line)
         (setq end (point))
         (beginning-of-line)